|
|
 |
|
|
|
|
290:
291: '##ModelId=352AB4EB005A
292: Public Property Let pCurrentSQL(ByVal vData As String)
293: 'used when assigning a value to the property, on the left side of an assignment.
294: 'Syntax: X.pCurrentSQL = 5
295: mvarpCurrentSQL = vData
296: End Property
297:
298:
299: '##ModelId=352AB4EA032A
300: Public Property Get pCurrentSQL() As String
301: 'used when retrieving value of a property, on the right side of an assignment.
302: 'Syntax: Debug.Print X.pCurrentSQL
303: pCurrentSQL = mvarpCurrentSQL
304: End Property
305:
306:
307:
308: '##ModelId=352AB4EC0082
309: Public Property Let pSQLTimeout(ByVal vData As Integer)
310: 'used when assigning a value to the property, on the left side of an assignment.
311: 'Syntax: X.pSQLTimeout = 5
312: mvarpSQLTimeout = vData
313: End Property
314:
315:
316: '##ModelId=352AB4EB01A4
317: Public Property Get pSQLTimeout() As Integer
318: 'used when retrieving value of a property, on the right side of an assignment.
319: 'Syntax: Debug.Print X.pSQLTimeout
320: pSQLTimeout = mvarpSQLTimeout
321: End Property
322:
323:
324:
325: '##ModelId=352AB4EC0316
326: Public Function getRecordCount() As Long
327: getRecordCount = mvarpResultset.RecordCount
328: End Function
329:
330: '##ModelId=352AB4ED00E6
331: Public Sub getLastRec()
332: 'On Error GoTo GoLastError
333:
|
|
|
|
|
|